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Foreword 


There is much more to computer graphics than you may 
think. Instead of just playing or illustrating games, you can 
write a story, and make your own colorful cartoon film 
program using both static and animated graphics. The 
program is given for the Apple He and Commodore 64 
computers, and tells the story of the Haunted House. 


The program has been broken down into logical stages and 
a running text explains how each section works. Writing a 
program in logical stages not only makes it easier for you 
and other people to understand, it also reduces the 
possibility of errors. At various stages you can test the 
sections of the program you've keyed-in - even the smallest 
error can mean that the program doesn’t work. If something 
does go wrong, check back through the listings very 
carefully. Make sure your program is exactly the same as is 
printed in the book. 


The sinister goings-on around the haunted house use many 
useful computer graphics techniques. For example, by 
carefully designing some user-defined characters it is easy 
to get the smoothest animation from a BASIC program. 
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APPLE Graphics 


The Apple stores the details of the shapes that it is going to 
draw on the screen in special shape tables. That way a 
shape can be put into memory and called when it is needed. 
The shapes are numbered and at the beginning of the shape 
table there is an index so that the computer can find the 
particular shape you want drawn. The index contains the 
number of memory locations the beginning of the shape is 
away from the start of the table. Memory locations 232 and 
233 tell the computer where the table is. 


READ SN: REM SHAPE TABLE SET 

POKE P,SNs POKE P + J. ,0:ST == 




POKE 232, FM MOD(P): 
LET P = ST •+• 2 SN 
FOR SS == 0 TO SN - 1 
LET A = ST + 2 SS: 
POKE 
POKE 


POKE 


(P / 256) 


A + 1 , 
P,25:P 


T p - S r + 2 
POKE A, FN MOD(T) 
256):D.T = " " : R = 0 
(30SUB 3.150: NEXT : 


RETURN 




To fully understand how Apple shape tables work you have 
to understand machine codes. But to make it easier a special 
BASIC routine has been written which translates simple 
direction commands into the right form. That routine is 
called by the GOSUB line 3070, after the overall format of the 
table has been set. 
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1 = 1 TO 
S OR X > 
PEEK (P 


LET X = X •+• B; FOR 
IF PEEK (P - 1) > 

POKE. P -- 1,8 * X + 

POKE P,XsP = P + 1 
NEXT ;R = 0 

IP 0:*: = "" THEN READ DTs 
LET AT = LEFTT (DT,1) 

LPT i)$ = MIDT (DT,2, 


R 

8 THEN 3130 
- 1 . )q GOTO 3140 


PRINT 


LEN (DT) - 1) 

< = Is GOTO 3100 
X 25 GOTO 3100 
X 3 5 GOTO 3100 
X = 128: GOTO 3100 
B = 0: GOTO 3150 
B = 45 GOTO 3150 
3150 

> "9" THEN 3270 
VAL (AT) 5 GO 1 0 ..Slbu 


POKE 


RETURN 



This is the routine that translates the simple direction 
instructions that are going to be given in the drawing data 
mto the complicated numbers that the shape table requires. 
In Ime 3150, the DATA is READ in as string and PRINTS a dot 
on the screen to show that the computer is working during 
this long procedure. Lines 3160 and 3170 pick off the first 
number or letter off the string. Lines 3180 through 3250 look 
for the direction letters we’re using or numbers. Lines 3100 
through 3140 do the complicated sums that work out the 
shape table numbers and POKE them into the right place m 
the shape table. 



20 GOSUB Z(t><t>(t> . 

25 X D«AVX 1 AT '<^20 
30 FOR X = M TO 27<^ . 

35 X DRAW 1 AT X h20 
4-0 X DRAW 1 AT 

fo xlSw 1 AT 27<l>,Z<t> 
55 text ' END 
60 DATA 1 
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COMMODORE Graphics 


To draw the haunted house, you have to use what is called 
“high resolution graphics" where each little dot on the TV 
screen is controlled individually. But Commodore BASIC has 
no simple command for drawing a line in high resolution 
graphics. So the program below loads a machine code 
routine which will do the job. You have to type this program 
in and RUN it before the main program will work. 


; END 


5 Ft’EM *** STAFt 1 lr.;Ft F"'Ft0GRAM 
10 FOR 1=0 TO 214: READ D: CS=CS+D 
20 POKE 49152+I,D: NEXT I 
30 IF CS029713 THEM PRINT "DATA ERROR! 

40 P0I<E642,64: SYS64766 

100 DAT AO, 32,, 253, 174,32,158,183,134,253,32,253,174 
110 DATA32,158,1S3,138,72,32,253,174,32,158,183,138 
120 DATA41,7,133,254,138,74,74,74,133,251,1O,10 
130 DATA101,251,160,6,162,0,134,252,42,38,252,136 
140 DATA20S,250,1O1,254,133,251,165,253,41,252,10,144 
150 DATA3,230,252,24,101,251,133,251,165,252,105,32 
160 DATA133,252,32,253,174,32,158,183,138,141,0,192 
170 DATA160,3,10,10,13,0,192,136,208,248,141,O 
180 DATA192,165,253,74,74,133,255,104,133,254,74,74 
190 DATA56,229,255,240,52,133,255,32,178,192,32,149 
200 DATA192,169,8,24,1O1,251,133,251,165,252,105,O 
210 DATA133,252,198,255,240,8,173,0,192,145,251,76 
220 DATA121,192,32,197,192,72,73,255,49,251,145,251 
230 DATA104,45,0,192,17,251,145,251,96,32,178,192 
240 DATA133,255,32,197,192,37,255,76,149,192,169,255 
250 DATA72,165,253,41,3,240,8,170,104,74,74,202 
260 DATA208,251,96,104,96,169,255,72,169,252,5, .254 
270 DATA 170,104,232, .208,1,96,10,10,76,206,192 




sg;: 




The numbers in the DATA lines are the machine code and 
the loop between lines 10 and 20 READs these numbers and 
POKES them into the computer's memory. But to check that 
you do not make a mistake when you are keying them in, line , 
10 also adds the numbers up. The total is checked in line 30 
which then tells you if you have made a mistake. Line 40 
makes sure that when the main program is loaded it goes 
into an area of memory where it won’t interfere with the 
machine code. The machine code is called by the command 
SYS MC. This command is followed by four numbers which 
tell the machine code where the ends of the line are, how far 
down the screen and what color it is. 
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This subroutine uses the machine code put into memory by 
the starter program to draw a box. So RUN the starter 
program, type in this routine, then test it using the test 
program below. When it is working, delete the test lines. Yl, 
Y2. XI and X2 are the row and column numbers that form the 
sides of the box. The loop between lines 13010 and 13030 
POKES the color memory of each character square in the 
box. And the loop between 13080 and 13100 uses SYS MC to 
call the machine code routine which fills in the box a line at a 
time with that color. The loop between 13080 and 13100 



works back up the box, using SYS MC to change the color of 
every other line to orange to give stripes. If NS is fixed at 1 
outside the program the machine code routine does not 
draw in the stripes. 

































The storyboard 


The storyline of the cartoon must be worked out in detail 
before the main program is written. First the scene is set, 
then the mysterious castle appears in the middle of nowhere, 
surrounded by a spooky forest. Night falls. A thunderous 
lightning flash wakes the bats in the belfry and an evil old 
witch takes to the air on her broomstick. As she flies off into 
the night accompanied by more lightning flashes. Then 
suddenly the old house catches fire. The flames leap higher 
and higher. The house is burnt to the ground. And, as an 
eerie conclusion to this macabre tale, a huge ghostly skull 
appears in the sky, hovering over the ashes of the house. 
When working on a cartoon tale like this one, it is a good 
idea to tackle the task like a professional movie maker. Work 
out a detailed storyboard, like the one below, that breaks the 
plot down into a series of separate events. 


hauntep forest 


haunted house 


background 


lightning strike 


BAT AND WITCH 


NIGHT FALLS 




A SKULL 


THE HOUSE COLLAPSES 


YhE Blazing house 





























































































THE CONTROL PROGRAM 
AND INITIALIZATION 

A control program is one that calls a series of subroutines in 
the right order. Here the control program corresponds to the 
storyboard and the subroutines correspond to each of the 
separate scenes. 
















































































The control program follows the storyboard, with each 
subroutine being called in turn. At first they simply set up the 
machine and draw up each element of the scenery. But 
when the action starts things get a bit more complicated. 


1-tAt.rNTED HOUSE 
FN MOD(X) 256 * (X / 256 - 
1000 s REH IWITIAL.. I Z AT IONS 
BACKGROUND ? 
TREES 

I NIGHTFALL 
LIGHTNING 
:50 


INT (X / 256)) 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


6000: 
6500: 
5000: 
.2400: 


CASTLE 


FOR TI = 1 


THEN 

THEN 

THEN 

THEN 


GOSUB 2100: 
GOSUB 2150: 
GOSUB 2200: 
GOSUB 2230: 




IF TI = 10 
IF TI > 10 
IF TI 30 
IF TI > 30 

IF RND (1) < .07 THEN GOSUB 2400: 

NEXT TI: GOSUB 2300: REM REMOVE BAT 
GOSUB 2400: GOSUB 2400: REM STORM 
GOSUp 2500: REM FIRE 

FOR X - 1 TO 1000: NEXT : GOSUB 2700: 
TEXT : END 


START WITCH 
MOVE WITCH 
START BAT 
MOVE BAT I 

REM LIGHTNING 


REM SKULL 






Because of the special way machine code numbers have to 
be handled, line 5 starts off by defining the function FN MOD 
(X) which will help simplify the math. Next the initialization 
subroutine is called, which tells the computer all the things 
that it will need to know to run the program. Then the 
routines that draw up the background and castle, the trees, 
make night fall and make the lightning flash are all called. TI 
is going to be used as a clock to control the animation. The 
routines that draw up the witch, make her move and draw up 
the bat and make it move take their cue from TI. In line 200 
the Apple's dice-rolling function RND is used to call the 
lightning program and give lightning flashes at random 
times. 

Once the animation loop has ended, the computer goes on 
with the rest of line 210 and removes the bat. Line 220 calls _ 
the lightning routine twice in quick succession to simulate a 
storm. In line 230 fire breaks out - or, at least, it's set by 
calling the routine at line 2500. 

Once the castle has burned down to the ground, there is a 
thousand time period pause to build up dramatic tension 
before the routine that puts up the eerie skull is called. Line 
250 sets the Apple back to normal TEXT mode before 
ENDing the program. 
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1000 

REh 

INITIALIZE 

PEEK 

AND 

POKE 

10 

10 

LET 

PIGE = 

4923 

A: P2G 

E = 

4923' 

10 

;2 C) 

LET 

FIJLLSC 

REEN 

492 

:34: 

GPAGE 

10 

30 

LET 

CLICK 

492 

00: F' 

= 2 

4576 

1 Ci 

'40 

GOS 

UE> 3000 

s REM 

! SET 

UP 

SHAPE 

10 

uO 

GGS 

UB 5200 

^ REM 

PUT 

MAC 

NINE 1 

10 

>60 

HGR 

: X = 

PEEK 

( FUL.L 

.SCR 

:EEN ) 

10 

70 

oLm 

LE- .1: 

RnT:= 

02 RE 

TLIR 

N 


TABLE 
CODE Ih4 


'iVhen initializing any program it is best to give it all the 
mportant memory addresses names that will be easy to 
remember. PIGE and P2GE are the addresses that switch on 
graphics screens 1 and 2. FULLSCREEN is the address 
which switches the Apple to full graphics screen, rather than 
the one that mixes graphics with text. CLICK is the address 
mat switches on the speaker. P is the pointer to the shape 
able. The address given here is the starting address of the 
shape table, but P will be updated as the shapes are loaded 
m. Lme 1040 calls the subroutine that sets up the shape table, 
90 now the computer has all the shapes at its fingertips. Next 
3 subroutine is called that loads in a machine code routine. 
This routine copies graphics screen one onto the graphics 
screen two, changing all the colors at the same time. HGR 
puts the Apple into high-resolution graphics mode and 
PEEKing FULLSCREEN selects the full graphics screen. 
SCALE and ROT say that the shapes should be drawn at the 
same size and at the same angle as they were given. 



SHAPE TABLE 

TH£ STARTING APPRESS 
OF THB SHAPE TABLE 
( BYTE T IS STORED 
AT addresses 2.32 
and 233. 

BYTE -t O contains 

1 the number of shapes, 
in this example there 

ARE 2. 

STARTING at BYTE -f 2 
there IS A LOW BYTE/ 
high byte INDEX W THE 
shape definitions RELATIVE 
TO BYTE TO. 

after the index are 

THE SHAPE DEFINITIONS 

themselves. 

( ALL SHAPE DEFINITIONS 
END WITH A ZERO.) 



BYTE T O 

number of SHAPES 

2 

BYTE T 1 

UNUSED 

(<i>) 

BYTE T 2 

adpress shape DEF. 1 C i-DW) 

6 

byte t 3 

address shape DEF.l (HIGH) 


BYTE T 4 

address shape DEF. 2.(lOW) 

38 

byte -T 5 

aoopp.RA shape DEF 2 (HIGH) 


BYTE -f 6 

SHAPE DEF. 1 START 





BYTE T 37 

SHAPE DEF. 1 END 

<i> 

BYTETBB 

SHAPE DEF. 2 START 

( 



T-17“ 

BYTE +69 

SHAPE DEF. 2 END 























































































































The structure of this control program follows the storyboard 
exactly. It calls the routines one after another. The only 
routines that are called more than once are those that move 
the witch and the bat and make the lightning. This is to make 
the witch and bat move continuously and the lightning flash 
repeatedly. 



This program calls a number of subroutines - the name of 
each subroutine is given in the REM line following the 
GOSUB call. The Commodore has a special graphics facility 
called sprites. These allow you to move areas of animation 
across the screen easily. But they are controlled by POKEing 
a special area of memory. The POKE in line 60 switches on 
the sprites which contain the bat and the witch. DX and DY 
fix the direction in which the bat starts moving. Setting them 
both to -1 means that the bat starts out moving from right to 
left and up the screen. WX controls the movement of the 
witch. She starts off in column 10 and moves across the 
screen two steps at a time until she disappears off the right- 
hand side. The lightning is made to flash randomly by using 
the dice-throwing instruction RND. Roughly once in every 20 
throws RND (0)*20 will come up with a number bigger than 
19 and the lightning subroutine at 1000 will be called. 



One of the problems with using sprites is that you have to 
deal directly with the Commodore’s memory locations. But 
each memory location can only store a number between 0 
and 255. But there are more than 255 columns across the 
screen. So when the witch reaches column 255, adjustments 
have to be made. These are done by lines 90 and 100. Line 
120 switches the bat and the witch sprites off again when 
you've finished with them. 






































/a 



c 


14060 
14070 
14080 
14090 


»** 

13281,14 

')OR16:REM MULTICOLOUR MODE 
)0R8:REM PUT SCREEN AT 8192 
1)0R32:REM SWITCH TO BITMAP 
8) ,M0 (37,10) ,SKp8,14) 
F0RI=0T020:F0RJ=0T015:READTR(I,J):NLXTJ,I 
FORI=0T016s FORJ=0T07:READMO(I,J):N^XTJ,I 
pnRI=0T014:FORJ =0T09:READSK(I,J ' 

0=53248:SC-1024;CO-55296:MC-49152 



14000 

REM *** 


IN] 

c 

14010 

PRINT‘'U":I 

='0KE532 

14020 

P0KE53270. 

, PEEK 

(5.: 

c 

14030 

P0KE53272. 

, PEEK 

(5: 

14040 

P0KE.53265. 

, PEEK 

: (s: 

14050 

DIM TR(33, 

,15) , 

DO 


To initialize this program we have to put the computer into 
me right mode to give high resolution graphics, READ in the 
DATA for all the things that have to been drawn on the 
screen, and give easy-to-remember names to important 
memory locations. Line 14010 clears the screen, sets the 
background color to light blue and sets the border color to 
may. Lines 14020 through 14040 put the computer into high 
resolution graphics mode. And lines 14060 through 14080 
read the DATA for the trees, the moon and the skull into the 
arrays TR, MO and SK. Line 14090 gives names to the 
important memory locations. V is the start address of the 
sprite memory. SC and CO are start addresses of the screen 
and color memories. And MC is the address of the special 
machine code high-resolution line-drawing program. Sprites 
are easy to use, so the windows of the castle will also be 
made from sprites. Lines 14100 through 14130 set their X and 
Y positions. Lines 14140 and 14150 set the starting positions 
of the witch and the bat. Lines 14160 through to 14190 set the 
colors and tells each sprite where to find its DATA. That 
DATA is then READ and POKEd into memory by line 14200. 
Line 14210 fills the screen with the sky color by using the 
machine code program. 


14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 


9,107: REI 


POKEV+8, 1 20:POKEV+ 

POKEV+1 0 , 232 : F'0KE;V+ 11,1 07 


“7 


POKEV-t-12,142: POKEV4-13,147 
POKEV+14,210;POKEV+15,14/ 
POKEV+OO,10 ;POKEV+O1,60 
POKEV + 02,50 : POKEV-t-03,80 


: REM 
: REM 


FORI-0T07:P0KEV+39+1,1s NE XT:REM COLOURS 
FOR I-4T07: P0KE2040-I-1,32: NEXT; REM 
P0KE2040,34; P0KE2041.35; POKhV-i-16, 


POKE V+37,10: POKE9+38,8; P0KEV+.2Ei, 


FORI-0T0319:READ 
FOR Y=0T0199:SYS 
RETURN 


MC,0,159,Y,0;NEXT 
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>40 s REM 
D:P0KE2048+I,Ds NEXT 
















































Although there are 10 trees on the screen, only one lot of 
DATA is needed. All the trees look the same so the same 
DATA can be used each time a tree is drawn. The numbers 
in the DATA here tell our machine code program which 
color to use. A 4, though, is not a color recognized by that 
routine. So if a 4 is found no action is taken. In the tree DATA, 
you’ll see that there are only 4s and 2s. The 4s do nothing and 
the 2s draw a point on the screen. If you look at the pattern of 
the 2s, you’ll see that they draw out the shape of a weird, 
gnarled tree. 


20000 REM DATA FOR TREE 

20010 DATA4,2,4,4,4,4,4,2,4,4,2,4,2,4,4,4 
20020 DATA2,2,4,4,2,2,4,4,2,4,4,2,4,4,4,4 
20030 DATA4,4,2 
20040 DATA4,4,2 
20050 DATA4,4,4 
20060 DATA4,4,4 
20070 DATA4,4,4 
20080 DATA4,4,4 
2 ' 00 9 0 D A T A 4,4,2 
20100 DATA4,4,4 
2011.0 DATA4,4,4 
20120 DATA4,4,4 
20130 DATA4,4,4 
20140 DATA4,4,4 
20150 DATA4,4,4 
20160 DATA4,4,4 
20170 DATA4,4,4 
20180 DATA4,4,4 
20190 DATA4,4,4 
20200 DATA4,4,4 
20210 DATA4,2,2 




,4,4,2,4,4,2,4,4,2,4,4,4,4 
,4,4,4,2,4,2,4,4,2,4,2,4,4 

,2,4,2,4,2,2,2,4,4,2,4,2,4 
, 4,2,4,4,4,2,4,4,2,2,4,4,4 

,4,2,4,4,4,2,4,4,2,2,4,4,4 

,2,2,4,4,4,2,4,2,2,4,4,4,4 
, 4,2,2,2,2,2,4,2,4,4,4,2,4 
,2,4,4,2,2,2,2,4,2,4,4,4,4 
,2,4,4,2,2,2,2,4,2,4,4,4,4 

,4,4,4,2,2,2,2,4,4,4,4,4,4 

,4,4,2,2,2,2,4,4,4,4,4,4,4 

,4,4,2,2,2,2,4,4,4,4,4,4,4 

,4,4,2,2,2,2,4,4,4,4,4,4,4 
, 4 , 4 , 2 , 2 , 2 , 2 , 4 , 4 , 4 , 4 , 4 , 4,4 
’ 4,4,4,2,2,2,2, 4,4,4,4,4,4 

,4,4,4,2,2,2,2,4,4,4,4,4,4 
,4,4,2,2,2,2,2,4,4,4,4,4,4 

4 2 2 2,2 2,2,2,4,4,4,4,4 

!2!4!2!2’2’2,2,2,2,2,2,4,4 




























































DAYTIME 

The background scenery, the haunted castle and the spooky 
forest are drawn up on the screen during the daytime. 
Everything is now ready for the action, which only begins 
once the sun has gone down. 
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7000 

REM £ 

5K:Y, BRASS PATH. 

- 

^ 7010 

DATA 

ORIGIN,0,0,0,0,0,0,0,0 

0 

W 7020 

DATA 

BLOCK, 0, 0,279,135, 0, 0,6,6 

7030 

DATA 

BLOCK, 0,136,279,191, 0, 0,1,1 


0 7040 

DATA 

TRIANGLE, 50,191,180,126, 75,191,0,3 

©: 


Not only does this program give you a BASIC routine to 
simplify the shape data, it also gives you one that simplifies 
the input of graphics data. You can use these routines - or 
routines like them - to simplify drawing on the screen m your 
own programs. This routine gives you new instructions that 
are not normally available in BASIC. Two mam instructions 
are given here: BLOCK and TRIANGLE. All the instructions 
are followed by eight numbers. The first four specify the 
sides of a block or two corners of a triangle. The next two fix 
the third corner of the triangle and are zero with the BLOCK 
instruction. 

The last two are the colors that the block or triangle is to be 
drawn in. There are two colors because the block and 
triangles are going to be striped. Added to that, there are 
two other new instructions which work with these two. 
ORIGIN fixes the point the sides of the block or the points of 
the triangle are measured from. This point is specified by the 
first two numbers, the rest are zero. And STOP switches off 
the special graphics routine. The sky and the grass are 
drawn as two blocks, the castle as three, one for the main 
body, and two turrets. The path is a long, thin triangle. 



7050 

REM CASTLE DATA 





7060 

DATA ORIGIN, 63, 30,0,0,0,0, 

0,0 



0 

7070 

DATA BLOCK, 28, 60,118,120, 

0, 

0,1,2 

LJ ■■ 


7080 

DATA BLOCK, 14, 40, 41, SO, 

0, 

0,1,2 

O:- 


7090 

DATA BLOCK,105, 40,132, 80, 

0, 

0,1,2 





















































o 

o 






V 



6000 

REM GRAF- 

HIC DATA INTE; 

RPRETER 



6010 

READ R:$, 

X d ) , Y d ) , X (2 

),Y(2),X(3) 


G 

6020 

IF RT = 

"ORIGIN" THEN 

OX = X (1) : 

OY 

G 

6030 

FOR I = 

1 TO 3:X (I) = 

X(I) + OX 


6040 

LET Yd) 

- Yd) + OY; 

NEXT I 


6050 

IF RT = 

"BLOCK" THEN 

GOSUB 6100 

O 

6060 

IF Rt 

"TRIANGLE" THEN GOSUB 6 

20( 

6070 

IF RT = 

"STOP" THEN 

RETURN 


r\ 

6080 

GOTO 601 

0 




i 


,C(0),C(1) 
Yd) 




m" 


J 


Ljie 6010 ^ADs in a string, R$, then the numbers that follow 
:t Lme 6020 looks for the word “ORIGIN" and sets the 
coordinates of the origin as OX and OY. Line 6030 through 
3040 add the coordinates of the origin into any coordinates 
given after the other new instructions. Line 6050 looks for the 
word “BLOCK” and goes to the block-drawing subroutine if it 
fnds It. And line 6060 looks for "TRIANGLE”. If line 6070 finds 
■STOP” the computer returns to the control routine. 


In the block routine, the sum T = 1-T is used to change the 
color each time the computer goes round a loop, so each line 


[when 






■£ drawn in a different color. HCOLOR- the high-resolution 
color - IS set to C(T). And HPLOT draws a line across the 
screen at the height given by Y. So the block routine draws 
m a block a line at a time, alternating the color of the lines to 
give stripes. 


Ltd J 






- again. 


Ltd 


The triangle routine works in much the same way, but each 
lme IS a different length. This length is worked out by lines 
5210 and 6220. Each line across the triangle gets bigger as 
you go down it. How much bigger each line is, is worked out 
by dividing the distance between the points of the triangle 
by the height. This length is then multiplied up as the lines 
are drawn down the triangle. The color of the lines is 
alternated using the sum T = 1 - T again. 


rw 


o 


6100 
6120 
6130 
6140 
6200 
6210 
6220 
6230 
6240 
6245 
6250 


COLOURS 


LET T = 1: REM FILL. BLOCK IN 
FOR I = Y (1) TO Y (2) s r 1 - T 

HCOLOR= C(T>: HPLOT X(1),I TO X(2),I 
NEXT : RETURN 

REM FILL TRIANGLE APEX (X2,Y2) 

LET H == Yd) - Y<2);K1 = (X(2) 

LET K2 = (X(3) - X(2)) / H:T == 1 

FOR I = 0 To H:T = 1 - Ts HCOLOR” CCD 


X(1)) / H 


HPLOT 

HPLOT 

NEXT 


X (1) + K1 
TO X(3) • 
RETURN 


* I , Y ( 


j.; 


I 


k: 


* 


I,Y(3) 


I 
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7100 

re:m f-;oc]fs on tuf^rets 




71 10 

DATA 

TRIANGLE, 10, 

39, 

28, 

0, 44, 

39 

7120 

DATA 

TRIANGLE,103, 

39,118, 

0,136, 

39 

7130 

REM i 

BATTLEMENTS 





7140 

DATA 

BLOCH:;, 42, 45, 

103, 

59, 

0, 0 

•j *< ’ 

7 150 

DATA 

BLOCK, 49, 60, 

55, 

65, 

O 

o 

,5, 

7160 

DATA 

BLOCK, 63, 60, 

69, 

65, 

0, 0 

1" 1 
f f 

7170 

DATA 

BLOCK, 77, 60 

, 83 

, 65 

, 0, 

o 

Ul 

7180 

DATA 

BLOCK, 91, 60, 

97, 

65, 

Cf M 0 

•f ' ••• f 




The roofs are put on the turrets by drawing two large 
triangles. These are not striped though. But the triangle 
routine draws lines alternately in the two colors specified. So 
the two colors are simply set to the same value. Both are 
color 5. The origin for this section was fixed in the last bunch 
of DATA, the DATA for the castle. 

The battlements of the castle are drawn in by extending the 
roof color into the body of the castle. This is done by using 
the BLOCK command to draw five small squares in the roof 
color over the edge of the block that has already been 
drawn to make the castle's walls. The block is not striped so 
the both colors are the same again - both color 5, the same 
as the roof You will notice again that the fifth and sixth 
numbers that follow the BLOCK command are zero. 

The castle's windows and doors are drawn in using the 
BLOCK command too. This DATA is still working from the 
origin given in the castle DATA. The roofs on the turrets, the 
battlements and the windows and doors are all drawn over 
the original castle, so it makes sense to use the same origin. 
This time the blocks are striped. The windows and doors are 
drawn in alternate lines of color 0, black, and color 3, white. 
The STOP command that switches off the graphics routine 
has only zeros following it. It may seem unnecessary to have 
all these zeros, but the routine that READs the DATA is 
expecting eight numbers. 


7 190 

REM WINDOWS 

DOOR 





7200 

DATA 

BLOCK, 

21, 

43, 

o "7 

•*=• •/ •; 

51, 

On 

0,0 

7210 

DATA 

BLOCK, 

119, 

43, 

125, 

51, 

Of 

o 

o 

7220 

DATA 

BLOCK, 

.28, 

60, 

34, 

70, 

0 ^ 

0 n 0 

7230 

DATA 

BLOCK, 

112, 

60, 

118, 

70, 

0.f 

0 n 0 

7240 

DATA 

BLOCK, 

35, 

90, 

48, 

102, 

Of 

0 M 0 

7250 

DATA 

BLOCK, 

98, 

90, 

111, 

102, 

Of 

C) n 0 

7260 

DATA 

BLOCK, 

63, 

105, 

83, 

120, 

Of 

0 n 0 

7270 

DATA 

STOP,0 

, 0,0 

, 0,0 

, 0,0 

,0 
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6500 HC0LDR= 3: REM TREES 
6510 FOR T = 1 TO 20 
6520 LET X = RND (1) * 
6530 DRAW 1 AT X + 


:: Rh4D 

^4EXT ! 


(1) * 26 
RETURN 


7nis routine draws twenty trees - one in each pass of the 
FOR... NEXT loop between lines 6510 and 6530. Line 6520 
rolls the computer’s dice function, RND, to position the trees 
m random places. The DRAW 1 in line 6530 draws the first 
shape from the shape table on the screen. The first shape is, 
cf course, the tree. The position is given by the expressions 
mat follow AT in line 6530. 




o 

o 




4000 
4010 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 


REM 9 GRAPHIC ELEMENTS 


DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


9 

TREE 

P2LtJD 

LU4RM 

4LU4R 

MR8LIP 

RPRU3 

RLDRD 

RP3RLI 

M7L...FT.. 


9LM3L 

LIL.P3L 

L14LML 

DR2D6 

LULM3 

RLDRD 

I....3RLJR 

3D2R2 


P2LMt..l 

MLIRP3 

UP7RM 

RM3RP 

RP3RU 

RLDRD 

URDDM 

D2RU2 


2RP7R 
RMRUP 
5RUP2 
9RMRLI 
2LU2L 
RLDRD 
M10U3 
DLDRD 


MRUP7 

41.. ..U4R 
LM2LP 
PI ILL) 
L)2LLIM 
RDLDR 

1.. .PL..DI.... 
2LDRD 




!....Mt.J2R 
LI4LML 

14I....D3 
ULM3L 
4LI2RP 
MDD3R 
D6LDR 
L.DRE 

mmm^ 


P6RU5 

LIP4RI...I 

LDL3D 

P2L.MU 

2RDRD 

P4RM2 

3URUR 


There are nine shapes in the shape table. This is set by the 9 
m the DATA in line 4010 which is read in at the start of the 
table. The code here is simple to follow. P means print, L 
means left, R means right, U means up, D means down and M 
means move. Directions following a P fill in the next point in 
mat direction with color. But directions following an M move 
me point in that direction without coloring it. A number 
before a direction tells the computer to move or print that 
many points in that direction. If you draw out these 
movements on a piece of graph paper you'll see the 
shape of a tree emerging. 




1 

t 
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1000 f;em *** back.gf;ound *** 

1010 FOR I ~0 TO 39; F'OKE 55856+1,11; NEX I 
1020 FOR 1=15 TO 24; FOR J=0 TO 39 
1030 F'OKEii; C0+]>40+J,5; F’OKE. SC+I. *40+J , 121 
1040 NEXT J,I 
1050 SYS MC,O,159,119,3 

1060 FOR Y=120 TO 199; SYS MC,0,159,Y,3 
1070 NEIXT Y; RETURN 


"Wl 

o 

o 

o 




The background routine does not draw up much of the 
background, but it does set up areas of the screen and color 
memories so that the routines that do the drawing later will 
know which color to use. Line 1010 POKEs the color memory 
along the horizon with gray. And lines 1020 through 1040 
POKE the color memory of the bottom of the screen with 
green for the grass and the screen memory with cyan and 
brown, ready to draw the trees. Line 1050 uses the machine 
code program to draw a gray line along the horizon. And line 
1060 uses it again to color in the grass. 


2000 REM CASTLE-MAIN EIODY *** 

2010 Y1 = 10; Y2= 1.6; X 1 14; X2=-'25; C=2; BOSUB 13000 

2020 F0RI=0T069; X=RND(O)*48+56 
2030 SYS MC , X , X , RND (0) *56+80 , .2 
2040 NEXT I 


o 


The subroutine that draws the mam body of the castle uses 
our box drawing routine at line 13000. So before that routine is 
called line 2010 specifies the sides of the box and gives it a 
color - 2, which is red. NS - the no-stnpe variable - is not set 
- so the red-brick of castle is striped with orange mortar by 
the box routine. This doesn't look too realistic so we add 
random red bricks with lines 2020 through 2040, to break up 
the pattern and give a mottled effect. 
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G 

O 

O 

O 

0 

O 

G 


3000 
3-010 
3020 
3030 
3040 
3050 
3060 
4000 
401‘0 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


REM *** TURRETS LEFT S-: RIGHT ***r 
Y1 -6 s Y2= 11;; X 1 -■ 12; X 2--15: 02: GOSUB1.3000 
X 1 --24: X2=27; GOSUB :l. 3000 
FOR 1=0 TO 39 
X=RND (0) * 16+48; SYS MC , X , X , RMD (0) •i^4B4-4B, 2 
X =RND(0)*16+96 s SYS MC, 

NEXT I 

REM ‘ TURRET TOPS 

FQRI = 1 TO 5s F0RJ = I1 TO :l.6 
POKE SC+I*40+J,11: NEXTJ,I 
FORI = 1T09: FORJ =0T03 


X ..RND (0) *48+48 


*** 


MC,56-I,55+1,8+1*4+J 


NEXTJ,I 


F0RI=1T05; 

POKE SC+I*40+J,11: 


F0RJ=23T028 

NEXTJ,I 
FORI = 1T09: FORJ=0T03 

SYS MC,104-1,103+1,S+I*4+J,2: NEXTJ,I 


o 


To draw the turrets, the box-drawing routine at line 13000 is 
called again. But this time it is called twice, once for each 
rjrret. Again the top, bottom and sides of the box must be 
specified. But the second time the box-drawing routine is 
called, only new sides for the turret have to be specified. 
The top and bottom are at the same level. The boxes are 
filed in with color 2, red, again. And again NS is not set to 1, 
30 the orange mortar stripes are added automatically. Lines 
3040 and 3050 gives the random speckling of red bricks. To 
cut the turret tops on, the screen memory in that area is 
POKEd with 11, which is gray, and lines 4040 and 4080 draw 
up a series of gray lines which give the pointed turret roofs. 


OSUB 6^11 - 

-eXp OF^POING- 

ABZOF^mP^- 

SlC 

exECujessQ^m- 


G 


5000 REM *** MAIN ROGF 

5010 FOR 1=8 TO 9: FOR J=16 TO 23 
5020 POKE SC+I*40+J,11: NEXT J,I 
5030 FOR Y=70 TO 79: SYS MC,64,95,Y 


*** 


NEXT 


Y 





The main roof is drawn in a similar way. The number 
corresponding to the color gray, 11, is POKEd into the 
screen memory in the area occupied by the roof, and SYS 
MC calls the machine code routine repeatedly. This draws 
up a series of gray lines down the screen which form the 
root The main roof is square, though, and simpler to draw. 

So instead of the two loops which give lines which get longer 
as the routme moves on the screen - giving the turrets' 
pomted roofs - only one loop is needed. Notice how this way 
of drawmg a block differs from using the DRAW BOX 
routme. Both approaches can be used later when you are 
vmtmg your own programs. 




















































UipN- 


6000 
60 10 
6020 
6030 
6040 
6050 
7000 
7010 
7020 
7030 
7040 


REM BATTLEMENTS 

FOR I”0 TO 1; FOR J==0 TO 1 
POKE. 1441 +1*4+J , 11: NEXT J 
FOR Y=80 TO 87 

SYS MC,6a,75,Y,2: SYS MC,83,9 
NEXT Y 

REM *** WINDOWS AND DOOR 


■it it it 


POK.EV+21 


Yl = 14: Y2^ 
C=9i:NS=l 
RETURN 


740 

= 16: Xl = 
iBOSUB 


:19: X2= 
13000 


To draw in the battlements, the roof color is simply extended 
down into the wall in two sQuare areas. So pray is POKEd 
into that area of the screen memory and SYS MC is called 
again twice. The 2 at the end of the string of figures after 
each SYS MC command tells the machine code program to 
get its color from the screen memory, rather than the color 
memory or anywhere else. 



The windows have already been defined as sprites in the 
initialization routine. So to draw in the windows we only have 
to turn the window sprites on with the instruction in line 7010. 
The door, though, is drawn up using the box drawing routine 
at line 13000. The sides of the door are set in line 7020 and line 
7030 sets the color to 9, brown. Since we don’t want orange 
stripes on the door, the value of NS is set back to 1, then the 
box-drawing routine is called. 


When sprites are defined, each is given a pointer which tells 
the sprite where to find its DATA in the computer s memory. 
This DATA has to be put into memory separately. Here is the 
DATA for the window sprites. It is READ and POKEd into 
memory in the right place by the initialization program. 
Every number in this DATA defines a small part of each 
window when it appears on the screen. So be careful that 
you type it in absolutely right or the program will not work 
properly. It is very easy to make a mistake when you are 
keying in a long string of numbers. Be sure to double 
check it. 


20560 REM SPRITE DATA:WINDOW 
20570 DATA 


20580 DATA 188,0,90,148,0,250,188,0, 


), 188,0,90,148,0,250,188,0*^2-- 
20590 DATA 90,148,0,250,188,0,90,148,0,250,188,0,90 
20600 DATA 148,0,250,188,0,90,148,O,25u,188,0,90,148, 

*“ “ “ ^ .1 /I t-\ i-K '•■y sr cr r-, i 

y.- \.J v-j ^ t...* 


20610 DATA 250,188,0,90,148,0,255.252 - 0.000 


















































c 

c 

c 

c 


REM *** TREES 

FOR TR=---0 TO 9 
TY=INT(RND(0) * 46 )+120: 
IF (TX>40 AND TX<104) 


FOR 

FOR 


1=20 TO O 
J=0 TO 15: 


H EP-l s 
X=TX+J 


ft-#* 

TX=INT(RND(O)*144) 
AND TY<136 THEN 8020 
Y=TY+I 


MO=TR(I,J)5 IFMO<: 


THEN 8080 


S MC,X 


X,Y,MO 


NEXT J, 
RETURN 


I , TR 





SoYi that the scene has been set and the castle is in place we 
need to add the spooky forest. One point about the forest is 
diat it is never the same twice when you RUN the program. 
One ten trees are drawn up in random positions which are 
rxed in line 8020. But we don’t want the trees appearing in 
±€ sky or in the castle. So they are confined to the bottom 
and roughly the middle area of the grass by line 8030. If a 
TX or a TY position come up that are off limits, line 8030 
sends the computer back to line 8020 to roll the RND dice 
again. 



The area that each of the trees occupies is stepped across a 
pomt at a time by I and J. I moves up and down the tree, 
while J moves across it from side to side. I and J, of course, 
start working from the screen positions TX and TY worked 
out before. At each new position and a new element of the 
see array TR is read into MO. If its not equal to 2, the 
computer skips the draw instruction and moves on to the 
NEXT point. But if it is 2, SYS MC draws in the tree trunk in 
brown, which is the color that has been POKEd into the 
screen memory of this area of the screen. 
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Testing your program 


You have now completed the part of the program that draws 
up the scenery, the castle and the spooky forest, so it will be 
as well to test them and check that they are working 
properly before the after-dark action starts. To do that, you’ll 
have to add the following test lines though. Otherwise the 
main routine will call subroutines that have not yet been 
typed in, and you will receive an error message. 



APPLE 

jyPE 125 GOTO 125 
AND RUN THE PROGRAM. 
PRESS THE CONTROL ANP 
RESET KEYS WHEN YOU 
ARE SATtSFlEP THAT THE 
PROGRAM IS WORKING 
CORRECTLY. PELETE LINE 
125 BEFORE CONTINUING 
WITH THE' NEyT SECTION. 



COMMODORE 64- 

TYPE 4-5 GOTO 4-5 
ANP RUN THE PROGRAM. 
PRESS THE RUN STOP 
ANP RESTORE NETS 
WHEN YOU ARE SATISFIED 
THAT THE PROGRAM IS 
WORKING CORRECTLV. 
PELETE LINE 4-5 BEFORE 
CONTINUING WITH THE 
NEXT SECTION. 
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MIDNIGHT 

This section of the program turns day into night. The bat, the 
witch and the burning flames appear. They are animated in 
different ways, depending on which computer you are using. 
But once you have learnt these techniques, you can use them 
in your own programs to create a variety of effects. 
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IF MACHINB cope 
IS WF.ONG THE 
COMPUTE!?- MAV . 

" crash" ANP YOU 
WILL LOSE THE 
WHOLE OF YOUR 
PROGRAM- 



5200 

REM PLACE MACHINE CODE 





© 

5210 

READ 

L.,C:T = 0:MACHINEC0DE 

P 



O 

5220 

FOR I 

= 1 TO L: READ .X:T = T 

4- X 



© 

5230 

POKE 

P,X:P = P + 1 




O 

5240 

NEXT 

: IF T = C THEN RETURN 





5250 

PR I N T 

■ : PRINT "CHECK LINES 5 

300 


360*’ s 

END 

© 

5300 

DATA 

57,5955,169, 32,133, 9, 

169 H 

64 H 

133 

O 


5310 

DATA 

11,169, 0,133, 8,133, 

1 0 H 

168, 

169 


© 

5320 

DATA 

85,133, 12, 74,133, 13, 

177, 

8, 

72 

O 

5330 

DATA 

41,128,240, 9,152, 41, 

1, 

170, 

104 


5340 

DATA 

85, 12,208, 3,104, 73, 

127, 

145, 

J. 0 

O 

© 

5350 

DATA 

200,208,232,230, 11,230, 


165,' 

9 


5360 

DATA 

201, 64,208,222, 96 





rx 







_ 


The machine code routine that switches day into night is 
contained in the DATA in lines 5300 through to 5360. Lines 
5220 through 5240 READ the DATA and POKE it into 
memory. When you type in machine code you must get the 
figures exactly right. The routine adds up all the figures and 
checks them against a check sum - if you make a mistake, 
the message in line 5250 will be displayed. 

When night falls the routine at line 5000 is called. It 
immediately calls the machine code which copies the 
daytime scene onto graphics screen 2. 


5000 
5010 
5020 
5030 
5040 
5050 
5060 


REM CAUSE N.TGHTFALL 

CALL. MACHINECODEs REM CREATE NIBHT ON SCRN 2 
POKE GPAGE,64!i REM DRAW ON 2ND SCREEN 
HCOLOR" 3: DRAW 2 AT 15,7: REM MOON 
POR X = 1 TO 2000; NEXT nX “ PEIEK (P2GE) 

POKE GPAGE,32: GOSUB 5100: REM LIGHTNING ON SI 
POKE GPAGE,64: RETURN ; REM NEXT PLOTS ON S2 












































JP£ 


c 


4200 

4210 

REM 1 
DATA 

MOON 

P5L3R 

D6LDL 

6RD7L 

DL.7RD 

8LDRD 

L.M3RP 

ZRhZR 

4220 

DATA 

DP2LM 

5LF'3L. 

D4RD4 

LDIOR 

UU3LR 

DRRD.D 

1 OLD 1 

4230 

DATA 

ORDRR 

12LRD 

1 IRLD 

1 OL.RD 

aRMD4 

L..P4LR 

D3R112 

4240 

DATA 

RP2RL 

D5LRD 

6RDR6 

LRRD7 

RI....D4t.,. 

E 



■vyi 




POKEmg GPAGE with 64 in line 5020 allows you to draw on 
'z& second screen. Remember that the first graphics screen 
^ soil the one that is appearing on the TV screen. The first 
±mg to be drawn on screen two is the moon. The DATA for 
~e shape of the moon is read in from lines 4210 through 4240. 
_ike the rest of the shape DATA, it ends with an E. When the 
s:^)e-table routine READs an E, it knows that it has reached 
dje end of the shape. This is shape two, so the DRAW 2 
rstructions in line 5030 draws the moon up. It is drawn in 
color 3, given by the HCOLOR command and the moon is 
dawn at coordinates 15, 7. Next there's a 2,000 time period 
pause. Then, by PEEKing P2GE, the second graphics screen 
appears on the TV. Line 5050 POKEs GPAGE with 32 which 
aZows you to draw on the first screen again. The computer 
±en goes off to the subroutine at line 5100 to draw in the 
oghtning. When it has done that POKEing GPAGE with 64 
ies you draw on screen 2 again. 

Tbe lightning is drawn on graphics screen 1 by lines 5100 
±iough to 5150 while the other screen is displayed on the 
T*/ The lightning is drawn in color 7, white, and is made of a 
icng narrow triangle which thins toward the bottom. Every 
23 Imes down the screen this triangle is given a quick shift to 
de left to give it the proper jagged look of lightning. 


HCOLOR= 7:DX = 0:C = 0; REM DRAW'LIGHTNING 
FOR Y = 1 TO J.OO;C = C + 1 
LET D1 = Y * ,96:D2 = Y * 1,25 
IF C == 23 THEN DX = DX + 29 + D1 - D2:C = O 
HPLOT 250 - D1 + DX,Y TO 279 - D2 + DX,Y 
NEXT : RETURN 

uL..;4....-.LJTm. ,.ij —. .— V ;;;» 


To flash the lightning, the screen is changed to screen 1 by 
PEEKing PIGE. This displays the day screen with the 
bghtning drawn on it on the TV. 


o 


REM FLASH LIGHTNING 
LET X = PEEK (PIGE) 
FOR X = 1 TO 60 
NEXT :X = PEEK (P2GE) 


■wi 


RETURN 
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1 



ho 


2270 


300 


510 
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REM BAT ROUTINES 

HCOLDR= 3:BN - 0:BA = 3;BR = 2;BX ~ 70 

GOSUB 2260; XDRAW 3 + BN AT BX,BY: RETURN 

HCOLOR= 3;X = BX;Y = BY: GOSUB 2260 

XDRAW 3 + BN AT X,Y:BN = 1 - BN 

XDRAW 3 + BN AT BX,BY: RETURN 

LET BX = BX + 2 COS (BA) + RND (1) 

LET BY = BR * SIN (2 * BA) + 65 

LET BA = BA + ,1:BR = 2 * LOG (BA): RETURN 

HCOLOR= 3; REM REMOVE BAT 

LET X = BX;Y = BY:BY = BY - 1: GOSUB 2240 
FOR X = 1 TO 50: NEXT : IF BY > 2 THEN 2310 
GOTO 2250 


To make the bat appear to flap its wings there are two bat 
shapes in the shape table: one with the bat’s wings up and 
one with the bat’s wings down. The shapes are switched by 
the BN= 1—BN sum. The XDRAW command is an “exclusive" 
draw. This means that drawing a new bat shape will blank 
out the old one. The path that the bat takes when it flies is a 
spiral, fixed by the instructions in lines 2260 through 2280. 
The subroutine that removes the bat calls the same drawing 
routine but its path is fixed by lines 2310 through 2330. When 
this routine is called, these lines make the bat fly off the top 
of the screen. 


_ ^ 


4300 REM BATS 1 2 

4310 DATA MUURP RRDRD .3RURU RDRD3 

4410 DATA P6RUR URDRD 3LD3R U6RE 


LD3RU 3RURU RRE 


The DATA for the two bat shapes is given in lines 4310 and 
4410. Note that there are two "Es” in the DATA, so that the 
computer knows that there are two shapes. Draw the two 
bats on graph paper, using the DATA, in the way explained 
on page 30. Then along comes the witch. 




2100 
2110 
2120 
2150 
.2160 
2170 
2180 
2190 


REM WITCH ROUTINES 
HCOLOF;= 7 ;WX = 30: WY = 10 
XDRAW 5 AT WX,WY: RETURN 
HCOLOR= 7: REM MOVE WITCH 
LET X =-- WX: IF WX < 0 THEN 
IF WX == 260 THEN WX = - 1; 
LET WX -- WX + 1: XDRAW 5 AT 


XDRAW 


AT 


X , WY: 


RETURN 


RETURN 
GOTO 2190 
WX,WY 


1 






















































Q 

O 


V 






4500 

4510 

4520 

4530 


REM WITCH 

DATA PRDLD LLMLD P3RD4 LDP2R M2RPR DRDRM 4RDP1 
DATA 8L..D3R MUULP 3LM7R IJP2RD 2LM2D RP2RD RDt..DD 
DATA RE 


In the witch routine, the XDRAW instruction is used to draw 
the witch over the background, but the background is 
returned intact when she has passed by. When the witch 
moves, two XDRAWS are used one after the other. The first 
draws up the new witch, the second blanks out what was left 
cf the old one. Line 2170 detects when the witch has reached 
the edge of the screen, skips the new drawing instruction 
and goes straight to the blanking out line. 








LET H = 
FOR I = 
IF H < 
IF W < 
LET X = 
IF I / 
LET X = 
HCOLOR= 


^ 2:W = 2s 
: 1 TO 400 
70 THEN H 
118 THEN W 
RND (1) 

(X + Y) < 

OX + 

^ 4 + 2 RND 


R'EM ANIMATE FIRE 


H +• 1 
W + 1 
* WsY -•= RND 
2 * RND (1) 


(1) : Y 


(1) * H 
THEN 2540 

80 + OY -- Y 


3 * RND (1) +6 AT X,Y 


DRAW 
NEXT 

REM CASTLE CRUMBLES 
LET X(l) ~ 60sY(l) = 
LET X(2) = 200;Y(2) 
GOSUB 6100; RETURN 


O; C (0) = O 
== llOsCd) = 


There are three flame shapes and these are called up 
randomly, in random colors, in random positions that 
gradually cover the castle. The castle is made to crumble 
simply by printing a block of black over it using the 
subroutine at line 6100. 




4600 REM 3 FLAMES 

4610 DATA P3LU3 RU3LU 2RU.2L URURU LURUE 

® 4710 DATA P3RU3 LU3RU 2L.U2R ULULU RULUE 

4810 DATA M3UPU 2L4RU 4LRUR RULE k 
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ill 

y T . r ■ ■ 


4900 
491 0 

REM 

DATA 

SI<Ui..L. 

F' 17LD 

.2LDL.D 

LDLDL 

2DL.4D 

L7DR4 

DR3DR 

DRDRD 

4920 

DATA 

RDR3D 

19R3LI 

RURLIR 

L.IRUR3 

UR4UR 

7UL4U 

L21..IL..U 

4930 

DATA 

LULUL 

LI.2LUM 

:l 3DPL 

Li4LDL. 

ADRD5 

R71JM1 

11... PL. LI 

4940 

DATA 

4LDL7 

D5RUR 

61JM1.0 

DP4D5 

R4UL.U 

3LDLM 

6L14D 

4930 

DAT r. 

F'?DR4 

D15R4 

UR Till 

g f: 







The skull in the sky is enlarged by setting the SCALE to 2. 
And it is made to shimmer eerily in the sky by altering the 
position it is printed in slightly. The X position is shifted 
randomly by 3 high-resolution screen positions and the Y 
position is shifted randomly by 4. Line 2730 rolls the RND 
dice for these shifts. The skull, which is shape 9, is then 
drawn by XDRAW. This also blanks out the last skull that 
appeared on the screen. The skull is printed up - and 
blanked out - 2,000 times before the computer RETURNS 
from this subroutine and the whole program ENDs. But, until 
then, the effect is very eerie indeed. 


2700 

REM SKULL IN SKY 

2710 

HCOLDR= 7: SCALE= 

2720 

FOR I = 1 TO 2000 

2730 

LET X = RND (1) 

2750 

XDRAW 9 AT 14S •+• 

2760 

NEXT : RETURN 


3s Y = 
X , 10 •+• 


All that is needed now to make the whole program work is 
shape-table DATA for the skull itself. This is typed in the 
code which consists of print and move commands and 
directional instructions as before. See if you can trace out the 
shape on a piece of graph paper. This will give you a clear 
outline of the skull shape, without the shimmer that is given 
by shifting its position when it is printed successively on the 
screen. And like the rest of the shape DATA, the skull's 
DATA ends with an E that tells the part of the initialization 
routine which is filling the shape table that this is the end of 
the last shape in this program. The machine code routine on 
pages 8 and 9 can be used in other programs that you write. ’ 
It makes it much easier to create character shapes on the 
Apple He. 


m 


y 



34 


















































Making darkness fall is easy. The POKE in line 9010 changes 
the background color - which was the sky's light blue - to 
black. But then the moon has to appear. Lines 9020 through 
9040 POKE an area of the screen memory with 7, the code for 
the color yellow. Lines 9050 through 9090 draw in the shape 
of the moon there using the machine code call SYS MC. The 
DATA for the moon is read out of the array MO. 

That same DATA is READ into the array MO by the 
initialization routine. But at that time we did not give it any 
DATA. Here it is now. You'll notice again that the shape of 
the moon is given by the 2s. In the night routine, line 9070 
skips the machine code call if it hits a 4 and nothing is 
printed on the screen. The points making up the moon are 
only printed on the screen when a 2 is found. Each 2 is also 
used in the SYS MC in line 9080 to tell the machine code to 
take its color from the screen memory. 




© 

© 


20220 

F<;EI'1 DATA fof;; moon 

20230 

DATA4,4,4,4,4,2,2,2 

20240 

DATA4,4,4,2,2,2,4,4 

202!50 

DATA4,4,4,2,2,4,4,4 

20260 

DATA4,4,2,2,4,4,4,4 

20270 

DATA4,2,2,2,4,4,4,4 

20280 

DATA4,2,2,2,4,4,4,4 

20290 

DATA4,2,2,4,4,4,4,4 

20300 

DATA4,2,2,4,2,4,2,4 

203 :l. 0 

DATA2,2,2,4,4,4,4,4 

20320 

DATA2,2,2,4,4,4,4,4 

20330 

DATA2,2,2,2,2,2,4,4 

20340 

DATA2,2,2,4,4,2,4,4 

20350 

DATA2,2,2,4,4,4,4,4 

20360 

DATA4,2,2,4,2,4,4,4 

20370 

DATA4,4,2,2,2,2,4,2 

20380 

DATA4,4,2,2,2,2,2,4 

20390 

DATA4,4,4,2,2,2,4,4 
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Lri 


:!. €>040 
10050 
10060 
J. 0070 
10080 
10090 
3,0100 
10110 
10120 


REM MOVE. E<A1 

FOR D^-^0 TO 30; NEXT 
T--= 1 - T: POKE 2041,35+ r 
IF X<1 OR X>69 THEN DX=- 
IF Y<49 OR Y>99 THEN DY= 
IF RS=255 THEN DX = 1: DY^^ 
X=PEEK(V+2)+DX: 

P0KEV + :2 , X : POKEV+3, Y 
RETURN 


*** 




DX 

>-DY 

:0 


■DY 


The subroutine that moves the bat starts with a 30 time 
period delay. The little sum T= 1—T in line 10060 flips the 
number of the DATA block POKEd into the bat’s sprite 
pointer between 35 and 36. Lines 10070 and 10080 change 
the bat's direction when it has reached its limits. Line 10090 
sends the bat offscreen when the witch comes by and the 
rest of the routine fixes the bat's sprite position. 




20790 

REM 

BAT -• WINGS UP 



1 


20800 

DATA 

0 „ 0,0 , C', 0,0,0,0,0,0,0 

, 0,0 .f 0,0 

, C), 0, 0 ,2E), 0 

m ^ 

'€7 

20810 

DATA 

56,119,0,238,129,219, 

:l 29,0,60 

,0, 0 ,24,0,0 

,36^^ 


20820 

DATA 

0,0,0,0,0,0,0,0,0,0,0 

, 0 ,0 n 0 n 0 

, , ’-j H 

--W 

0 

20830 

DATA 

0,0,0,0,0,0,000 



w 


20840 

REM 

BAT - WINGS DOWN 




© 

20850 

DATA 

0,0,0,0,0,0,0,0, 0 ,0,0 

0,0 .J 0 ,0 

, 0, 0 , 0 ,0 ,0 , 

0,00 i 


20860 

DATA 

0,0,129,219,129,119,6 

0,238,28 

,24,53,0,36 



20870 

DATA 

0,0,0,0,0,0,0,0,0,0,0 

, 0 ,0,0,0 

, 0 , C), 0 ,0 ,0 , 

0,0^ 


20880 

DATA 

0,0,0,0,0,000 





The bat needs two lots of DATA - one to draw it with its 
wings up and one with its wings down. These are read into 
blocks 35 and 36 by the initialization routine. So each time 
the bat routine is called, the other picture is printed up. 

Alternating between the two images in this way makes the 
bat appear to flap its wings as it flies. 

The witch flies on her broomstick though. Since she has 
no wings, she only needs one block of DATA for the 
one image. 

^ 20730 REM WITCH 

_ 20740 DATA 0,0,0,0,60,0,0,14 _ ^ 

20750 DATA 0,0,15,0,0,15,192,0,23,0,0,7,128,2,15,0,1 '€V 

20760 DATA 255,0,3,255,128,4,249,128,O,60,192,160,126 
20770 DATA 224,84,126,112,171,255,255,84,191,0 _ 0 

20780 DA f A 128,7 , u, 0 , .50,0,0 , aU , u , O , 112 , o , O , 112,0, Ou<.<_ 



V''' 
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I 


t 



1 1000 
11010 
11020 
11030 
11040 

I 1050 
11060 
11070 
11080 
11090 

II 100 
1 1 1 10 
11 1-20 
11 ]. 30 
11 140 
1 1150 
11160 
1 1 170 


REM #** BURN 

P (0) 116; P (1) = 107: P (2) =228; P (3) = 107 

P(4)=138 s P(5)=147:P(6)=206 s P < 7)=147 
FOR 1=0 TO 7; POKE VH-I,P(I); NEXT 
POKE V+16,0: POKE V+28,255 

FOR I=0 TO 3;P0KE2040+1,33s P0KEV+39+1,2;NEXT 

POKE V+21,255;T=0 

FOR BU=1 TO 200; T=l--T 

POKE V+37,0+7*T; POKE V+3S,7-7*T 

IF BU=100 THEN GOSUB 11140 

IF BU=50 THEN GOSUB 11160 

FOR D=0.TO 40;NEXT 

NE X T BU:POKE V+21,0 

FOR Y=0 TO 117;SYS MC,40,120,Y,0;NEXT;RETURN 

FOR I =0 TO 3: POKE V+2* I , p (2* I) --12 

POKE V+29,15: NEX TI; RETURN 

FOR I =0 T03; POKE V +-1 +2* I , P (2* I +1 ) -20 

POKE V+23,15; NEXTI; RETURN 







Lines 11010 and 11020 give the coordinates of the flames. 

Line 11040 sets the sprites to high-resolution mode, and line 
11050 sets their color to 2, or red. Once the flame sprites are 
turned on, the burn time, BU, is set to 200. Line 11080 flips the 
sprite's high-resolution color between yellow and black to 
make them flicker. When BU reaches 50, and again at 100, 
the program branches to subroutines which make the sprites 
expand. But when that happens the sprites have to be 
repositioned. Line 11030 finally burns the place down. 


20650 REM FLAME 
20660 DATA 
20670 DATA 
20680 DATA 
20690 DATA 
20700 DATA 


FLAME ^ 

0, 1 92,0,0,4,0,1,0,0,1,204,0,5, 1 96,0,5,196,0 ^ 
5,76,0,7,100,0,7,164,0,7,225,0,1,225,0,1 O 
233,0,192,232,112,48,104,112,60,232,112 
25,229,64,58,109,192,14,229,192,14,105 0 

1 Q'*:» "7 I OiiL I or-. 4 1 7 A I or-. - -.c::-c::- 


All the flames are the same shape, so they only need one lot 
of DATA. This is POKEd into memory by the initialization 
program. They don't all look the same on the screen though, 




























































o 


1 0 00(')■ R F£ M * LI ti H TNI N B 

10010 FOR LI=1 TO 0 STEP"1 
10020 P0I<E53281 ,LI: FOR D=0 TO 
10030 RETURN 


50: 


O 


*■#* 


NEXTD,LI 


All the lightning subroutine does is to make the lightning 
flash, The lightning appears when 53281 is POKEd with 1. 
After a pause caused by the machine counting to 50, the 
lightning disappears when it is changed back to black again. 



12000 REM *** SKULL 

12010 FOR 1=1 TO 12; FOR J=15 TO 24 

12020 POKE SC+1 *40+J , RND (0) *255: NEXTJ ,, I 

12030 FOR 1=14 TO O STEP -Is FOR J=0 TO 9 

12040 MO=RND (0) *2+1: IF SK (I , J ) =4 TT-IEN 12080 

12050 X=60+J*4: Y=40+I*4 

12060 SYS MC,X,X+2,Y,M0 

12070 SYS MC,X,X+2,Y+1,MO 

12080 NEXT J,I 

12090 RETURN 


0 


0 

0 



To create the eerie skull, lines 12010 and 12020 POKE 
random color values into the screen memory in the area that 
is going to be occumped by the skull. The DATA for the skull 
is read out of the array SK. If the element of the array for that 
particular area is 4, the drawing lines are skipped. Otherwise, 
random numbers between 1 and 3 direct the machine code 
to pick its colors from different areas of memory. 

The Os in the skull data draw out the shape of the skull and 
the 4s are left as the background. 



20400 

REM 

DATA FOR 

SKULL... 

204 10 

DATA 

4,4,4, 

0, 

0,0,0,4,4,4 

20420 

DATA 

4,0,0, 

0, 

0,0,0,0,0,4 

20430 

DATA 

4,0,0, 

0, 

0,0,0,0 , C), 4 

20440 

DATA 

0,0,0 , 

0, 

0,0,0,0,0,0 

20450 

DATA 

0,0,4, 

0, 

0,0,0,4,0,0 

20460 

DATA 

0,0,4, 

4, 

0,0,4,4,0,0 

20470 

DATA 

0,0,4, 

4, 

0,0,4,4,0,0 

20480 

DATA 

0,0,0, 

0, 

0,0,0,0,0,0 

20490 

DATA 

4,0,o, 

0, 

4,0,0,0,0,4 

20500 

DATA 

4,0,0, 

0, 

4,4,0,0,0,4 

20510 

DATA 

4,0,0, 

0, 

0,0,0,0,0,4 

20520 

DATA 

4,4,4, 

0, 

0,0,0,4,4,4 

20530 

DATA 

4,4,0, 

0, 

0,0,0,0,4,4 

20540 

DATA 

4,4,0, 

4, 

4,4,4,0,4,4 

20550 

DATA 

4,4,0, 

0, 

0,0,0,0,4,4 



















































Program listings 

What follows is the complete program for both computers. 
List the program and check it against the full listing here. 
Even the smallest mistake can cause problems. Take special 
care to check the DATA lines. A comma out of place here 
can stop the whole program working. When you have a full, 
working program, SAVE it on tape or disk, using the 
commands in your user’s manual. 



APPLE He 


1 REM HAUNTED .HOUSE 
5 DEF FN MODty) = 256 


* (X / 256 - INT (X / 256)) 


GOSUB 1000: REM INI T.1ALI ZATIDNS 
GOSUB 6000: REM BACKGROUND ?< CASTLE 
GOSUB 6500: REM TREES 
GOSUB 5000: REM NIGHTFALL 
GOSUB 2400: REM LIGHTNING 
FOR TI = 1 TO 250 

IF TI = 10 THEN GOSUB 2100: REM START WITCH 

IF TI > 10 THEN GOSUB 2150: REM MOVE WITCH 

IF TI = 30 THEN GOSUB 2200; REM START BAT 

IF TI > 30 THEN GOSUB 2230: REM MOVE BAT 

IF RND (1) < .07 THEN GOSUB 2400: REM LIGHTNING 
NEXT TI: GOSUB 2300: REM REMOVE BAT 
GOSUB 2400: GOSUB 2400: REM STORM 
GOSUB 2500: REM FIRE 

FOR X = 1 TO 1000: NEXT ; GOSUB 2700: REM SKULL 
TEXT ; END 

REM INITIALIZE PEEK AND POKE ADDRESSES 

LET PIGE = 49236;P2GE = 49237 

LET FULLSCREEN = 49234:GPAGE = 230 

LET CLICK ^ 49200:P = 24576 

GOSUB 3000: REM SET UP SHAPE TABLE 

GOSUB 5200: REM PUT MACHINE CODE IN 

HGR :X = PEEK (FULLSCREEN) 

SCALE= 1: ROT== O: RETURN 

REM WITCH ROUTINES 

HC0L(3R= 7;WX - 30: WY = 10 

XDRAW 5 AT WX,WY; RETURN 

HCOLOR= 7: REM MOVE WITCH 

LET X = WX: IF WX .; 0 THEN RETURN 

IF WX 260 THEN WX = - 1: GOTO 2190 

LET WX = WX + 1: XDRAW 5 AT WX,WY 

XDRAW 5 AT X,WY: RETURN 

REM BAT ROUTINES 

HCOLOR= 3:BN = 0:BA = 3:BR = 2:BX = 70 

GOSUB 2260; XDRAW 3 + BN AT BX,BY: RETURN 

HCDLOR= 3:X = BX;Y = BY: GOSUB 2260 

XDRAW 3 + BN AT X,Y:BN = 1 - BN 

XDRAW 3 + BN AT BX,BY: RETURN 

LET BX = BX + 2 * COS (BA) + RND (1) 

LET BY = BR ♦ SIN (2 * BA) + 65 

LET BA = BA + .1;BR = 2 * LOG (BA); RETURN 

HCOLOR= 3; REM REMOVE BAT 

LET X = BX:Y = BY; BY = BY -- 3: GOSUB 2240 
FOR X --- 1 TO 50: NEXT : IF BY > 2 THEN 2310 
GOTO 2250 

REM FLASH LIGHTNING 
LET X = PEEK (PIGE) 

FOR X = 1 TO 60 

NEXT :X = PEEK (P2GE); RETURN 

LET H = 2:W = 2: REM ANIMATE FIRE 

FOR I = 1 10 400 

IF H < 70 .THEN H = H + 1 

IF W .: 118 THEN W = W 4- 1 

LET X = RND (1) * W:Y = RND (1) * H 

IF I / (X + Y) < 2 * RND (1) THEN 2540 

LET X =* OX + 132 -’X 

HCOLOP^- 4 + 2 * RND (1 ) : Y = 80 + OY - Y 

DRAW 3 * RND (1) + 6 AT X,Y 

NEXT 

REM CASTLE CRUMBLES 

LET X (1) ==■■ 60; Y (1) =» 0; C (0> = 0 

LET X(2) * 200:Y(2) = 110:0(3) ^ 0 

GOSUB 6100; RETURN 

REM SKULL IN SKY 

HCULOR* 7; SCAI..E=-- 2 

FOR I « 1 TO 2(500 

LET X =» RND (1) * .3;Y = RND (1) * 4 
XDRAW 9 AT 148 + X,10 + Y 
NEXT : RETURN 

READ BN: REM SHAPE fABLE SET UP 

POKE P,SN: POKE P + 1,0-ST = P + 2 

POKE 232, FIM MOn(P); POKE 233, INT (P / 256) 

LET P = ST + 5 * BN 

FOR SB » 0 TO SN - 1:1 = R - <31 + 2 
LET A = ST 4 2 ♦ SS: P(TKE A, FN MOD(T) 

POKE A 4 1 , INT ( T / 256) ;D;^ » "": R = o 
POKE P,25:P = P + 1: GOSUB 3150; NEXT : RETURN 
LET X = J( 4 B; FOR I = 1 TO R 



COMMODORE 64 


5 REM *** STARTER PROGRAM 
10 FOR 1=0 TO 214: READ D: CS=CS4-D 
20 POKE 491524I,D: NEXT I 

30 IF CS029713 THEN PRINT "DATA ERROR!"; END 
40 P0KE642,64:SYS64766 

100 DAT AO,32,253,174,32,158,183,134,253,32,253,174 
110 DATA32,158,183,138,72,32,253,174,32,158,183,138 
120 DATA41,7,133,254,133,74,74,74,133,251,10,10 
130 DATA101,251,160,6,162,0,134,252,42,38,252,136 
140 DATA20S,250,101,254,133,251,165,253,41,252,10,144 
150 DATA3,230,252,24,101,251,133,251,165,252,105,32 
160 DATA133,252,32,253,174,32,158,183,138,141,0,192 
170 DA rA160,3,10,10,13,0,192,136,208,248,141,0 
180 DATA192,165,253,74,74,133,255,104,133,254,74,74 
190 DATA56,229,255,240,52,133,255,32,178,192,32,149 
200 DATA192,169,8,24,101,251,133,251,165,252,105,0 
210 DATA13.3,252, 198,255,240,8,173,0, 192,145,251,76 
220 DATA121,192,32,197,192,72,73,255,49,251,145,251 
230 DATA104,45,0,192,17,251,145,251,96,32,178,192 
240 DATA133,255,32,197,192,37,255,76,149,192,169,255 
250 DATA72,165,253,41,3,240,8,170,104,74,74,202 
260 DATA208,251,96,104,96,169,255,72,169,252,5,254 
270 DATA170,104,232,208,1,96,10,10,76,206,192 


5 REM *** ===hAUNTED H0USE==^-- 

10 GOSUB 14000:REM INITIALIZE 

20 GOSUB 1000 ;REM BACKGROUND 

30 GOSUB 2000 :REM CASTLE 

40 GOSUB 8000 ;REM TREES 

50 GOSUB 9000 :REM NIGHT 

60 POl E V+21,243:DX — l;DY=-l 

70 FOR WX=10 TO 346 STEP 2:L1=RND(O)*20 

SO TF L.r 19 THEN GOSUB 10000; REM L IGHTNING 

90 IF WX>255 THEN RS=255;P0KF V+16,3 

100 POLE V+<.,WX-RS:REM WITCH 

1 10 GOSUB 1004C»: REM BA T 

120 NEXT WX: POKE V f 21,24i;> 

130 GOSUB 11000;REM BURN 
140 GOSUB 12000:RFM SI.ULL 
150 END 

1000 REM ♦** BACl GROUND 

1010 FOR 1=0 TO 39; POKE 55856+1,11: NEXT 

1020 FOR 1-15 TO 24: FOR ,)=.< TO 39 

1030 POKE C0+I*40+J,5: POLE SC*1*40+J,121 

1040 NEXT J,I 

1050 SYS ML 159, 1 19, > 

1060 FOR Y=120 TO 19<v; syS MC,'», 159 , Y , 3 
1070 NEXT V: RETURN 

2000 REM *** LASTLE-MAIN BODY *** 

2010 Yl=10;Y2=16:Xl=14;X2=25:C=2:GnsUB 13000 
2020 F0RI=0T0o9: X=RND(O)*48+56 
2030 SYS MC,X,X,RND(0)*56+80,2 
2040 NEXT I 

3000 REM ♦*♦ TURRETS LEFT ^ RIGHT 
3010 Y1=6:Y2=11:Xl = 12:X2=15:C=2:GOSUBI 3000 
3020 X1=24;X 2=2 7: GOSUB13000 
3030 FOR 1=0 TO 39 

3040 X=RND(0) ♦16+48:SYS MC , X , X , RND (<)) *48+48,2 
3050 X=RND(0)*16+96:SYS MC,X,X,RND(O)*48+48,2 
3060 NEXT I 

4000 REM *** TURRET TOPS *** 

4010 F0RI=1 TO 5: F0RJ=11 TO 16 

4020 POKE SC+1*40+J,11: NEXTJ,I 

4030 F0RI=ir09: F0RJ=0TU3 

4040 SYS MC,56-I,55+1,8+I*4+J,2: NEXTJ,I 

4050 F0RI=1T05: F0RJ=23T028 

4060 POKE SC+I*40+J,11; NEXTJ,I 

4070 F0RI = 1T09: F0RJ=0T0.3 

4080 SYS MC,104-1,103+1,8+1*4+J,2: NEXTJ,I 
5000 REM *♦* MAIN ROOF **♦ 

5010 FOR 1=8 TO 9: FOR J=16 TO .23 

5020 POKE SC+1*40+J,11: NEXT J,I 

5030 FOR Y=70 TO 79; SYS MC,64,95,Y,2: NEXT Y 

6000 REM ♦** BATTLEMENTS *** 

6010 FOR 1=0 TO 1: FOR J=0 TO 1 
6020 POKE 1441 + 1*4+J,1 I: NEXT J,I 
6030 FOR Y=80 TO 87 

6040 SYS MC,6a,75,Y,2: SYS MC,83,91,Y,2 



'i 


i 

. 1 











































APPLE He continued 

3110 IF PEEK <P - 1) a DR X B THEM 3130 

3120 P0I:E P -- 1,0 » X + PEEK (P - 1): GDTO 3140 
POKE P,X:P = P ♦ I 
NEXT :R = O 

IF Dt = "" THEN READ D#: PRINT 
LET Af = LEFTI: (Dt, 1) 

LET Dt = HIDt (Df,2, LEN <Dt) - 1) 


31 40 
3150 
31 60 
3170 
3 ISO 
3190 


3210 


3230 

3240 

3250 

3260 

3270 

4000 

4010 

4100 


IF At = "R" THEN X = 1: GOTO 3100 

IF = "D" THEN X = 2: GUTD 3100 

IF At = "L" THEN X = 3: GOTO 3100 

IF At = "U" THEN X = 12B: GOTO 3100 

IF At -■= "M" THEN B ^ O: GOTO 3150 

IF At - "P" THEN B = 4: GOTO 3150 

IF At = " " THEN 3150 

IF At < "O" OR At : •'9" THEN 3270 

LET R = 10 ♦ R + VAL (At): GOTO 3150 

POKE P,X: POKE P + 1,0:P = P + 2: RETURN 

REM 9 GRAPHIC ELEMENIS 

DATA 9 

REM TREE 


4110 

DATA 

P2L.UD 

91- M3L 

P2LMI1 

2RP7R 

MRUP7 

LMU2R 

P6RU5 

41 20 

DATA 

1 U4RM 

ULP3L 

MURP3 

RMRUP 

4L.U4R 

U4LML 

UP4RIJ 

41 30 

DATA 

4L.U4R 

U4l ML 

UP 7RM 

5RUP2 

LM2LP 

14L D3 

LDL3D 

4140 

DA FA 

MRaup 

DR2D6 

RM3RP 

9RMRU 

PI ILU 

ULM3L 

P2L.MLJ 

4 1 50 

DATA 

RPRU3 

LUL.M3 

RP3RU 

2LU2L 

U2l L.lM 

4LI2RR 

2RDRD 

4160 

DATA 

RL.DRD 

RL.DRD 

RLDRD 

RLDRD 

RDLDR 

MDD3R 

P4RM2 

4 J 70 

DA 1 A 

RP3RU 

L 3RUR 

1JRDDM 

Ml 01.13 

1. PL DL 

D6LDR 

30RUR 

41 BO 

D.4 1 A 

M7L fL 

3D2R2 

d;:ru2 

DLDRD 

.2L.DRD 

LORE 


4200 

REM MOON 







4210 

DA I A 

P5L3R 

D6LDL 

6RD7I 

DL7RD 

8LDRD 

LM3RP 

.3RM3R 

4220 

DATA 

DP2L.M 

5L..P3L 

D4RD4 

LDIOR 

UU3L.R 

DRRDD 

lOLDl 

4230 

DA T A 

ORDRR 

12LRr) 

1 IRLD 

101. RD 

8RMD4 

LP4LR 

D3RM2 

424-0 

DATA 

RP2RL 

D5LRD 

6RDR6 

LRRD7 

RL.D4L 

E 


4300 

REM HA IS 1 

5!< .2 






4310 

DA 1 A 

MUURP 

RRDRD 

IRURl.l 

RDRD3 

1 L>:)RU 

■ RURU 

RRE 

4410 

DA LA 

P6RUR 

URDRD 

31 .D3R 

U6FE 




4500 

REM WITCH 







4510 

DATA 

PRDLD 

LI. ML D 

p:3RD4 

t DP2R 

M2RPR 

DRDRM 

4RDP1 

4520 

DATA 

8LD3R 

MUULP 

31 M7R 

UP2RD 

2LM2D 

RP2RD 

RDI.DD 

4530 

DATA 

RE 







4600 

REM 3 FLAMES 






4610 

DATA 

P3LIJ3 

RU31 11 

2RU2L.. 

URIIRU 

L URIJE 



4 7 10 

DATA 

P3RU3 

LI..J3RU 

21 U2R 

LJl IJLIJ 

RULUE. 



481 0 

DA T A 

M3UPU 

2L4RU 

4L.RUR 

RULE 




4900 

REM SKUL.L. 







4910 

DATA 

PI 7LD 

2L.DLD 

LDL DL 

2DL 4D 

L7DR4 

DR 3DR 

DRDRD 

4920 

DA rA 

RDR3D 

19R3U 

RURI.IR 

URUR3 

UR 4 UR 

7UL..4U 

1 2UI IJ 

4930 

DATA 

LULUl 

U2LUM 

1 3DPL 

U4LDI 

6DRD5 

R/UMl 

IL PL IJ 

4940 

DATA 

4LDL7 

D5RUR 

6UM10 

DP4D5 

R4UL U 

31 OEM 

6L 1 4D 

4950 

DAT A 

P2DR4 

D15R4 

UR 21.) I 

71. F 




500(:' 

REM CAUSE NIGHTFALL. 





5010 

CALL. 

MACFIINECODE: 

: REM 1 

RE ATE 

NIGHT 

ON SCRN 2 


5020 P0L:E GPAGE,64: REM DRAW ON 2MD SCREEN 
5030 HCOl. OR- 3: DRAW 2 AT 15,7: REM MOON 
5040 FOR X = 1 TO 2000: NEXT :X = PEEK (P2GE^ 

5050 POKE GF'AGE,32: GOSOB 5100: REM L.ISHINING ON B1 

'.060 POKE 6PAGE,64: RE TORN : REM MFXT PLOTS ON 52 

5100 HLOLOR- /: DX = 0;C = O: REM DRAW I. IbHTNING 

5110 FOR V - 1 TO 100:0 =0^1 

5120 lET D1 = Y * .96;U2 - Y * 1.75 

5130 IF C ---- 23 I HEN DX - D> + 29 i D1 -- D2:C == 0 

5140 HPLOI 250 - D1 + DX,Y TO 279 - D2 + DX, 

5150 NEXT ; RETURN 

5200 REM PLACE MALTIINF CUDE 

5210 READ L,C: I ■= 0: MACHIMECODE -- P 

5220 FOR I I TO 1: READ >:T - I + X 

52 30 P0L:E P,X:P = P f 1 

5240 NEXI : 11 T ~ I THEN RETURN 

5250 PRINT : PRINT "CHECK LINES 5300 -> 5360"; END 

5 300 DA IA 5 7,5955,1 o9, 3..', I 3,, 9,169, . t)4,1 3 3 

5310 DATA 11,169, 8,133, 10,168,169 

5320 DATA 85,133, 12, 7T,133, 13,177, B, 72 

5330 DATA 41,128,240, 9,152, 41, 1,1 70 ,104 

5340 DATA 85, 12,208, 3, 1*^4, 73, 127,145, 

5350 DATA 


5360 

DATA 20 

1 , 

6000 

REM GRAPH] 

601' > 

READ Rt 


6020 

IF Rl = 

"I 

6030 

FOR 1 

1 

6040 

L E T (1 

) = 

605U 

IF Rt = 

"I 

6060 

IF Rt - 


60 70 

IF Rt = 


6080 

GOTO 60 

10 

61 00 

i E T 1 = 

1 i 

6120 

FOR I 

Y 

6130 

HCDLOR- 

C 

6140 

NEXT : 

RE 

6200 

RFM Ell 

L 

6210 

L ET H = 

Y 

6220 

I..E T 1 2 

..= 

6230 

FOR I = 

0 

o>4'» 

HFT OT X 

( 1 

6245 

HPLD1 

TO 

6250 

NEXT : 

RE 

6500 

Hf::OL.OR= 

3 

6510 

FOR 1 = 

1 

6520 

LET X = 

1 


208,2 
64,208, 


1 I 7 


9,165 


OR 1GIN■ 


),X(2),Y<2 
THEN OV = 


) ,X(3) ,y.( 3) ,r:(0), 
X ( 1 ) : OY Yd) 

+ Ua 


) + OY: NEXT I 
Bl OCL " THEN GOSUB 61 Or, 
IRIANGI E" THEN GOSUB 6200 
STOP" THEN RETURN 

: REM Fil l BLOC! IN 2 CULOl IR 
( 1 ) 10 Y(2): 1 = 1 - T 

(T > : HFT O T X < 1 ) , 1 10 X (2) , 1 

TURN 

IR1ANGLE APEX (X2,Y2) 

( 1 ) Y (2) : I 1 = <X (2) X ( 1) 
(X(3) - X(2)) / H:I - 1 

TO H:T == 1 T: HCOLOR-^ Cd 
, + Id « 1 , d > - 1 

X(3) - K2 » 1,Y(3) - I 


RND d) 250: Y - RND d) * 26 
6530 DRAW 1 AT X + 25,191 -- V; NEXT : RETURN 
7000 REM SKY, GRASS ?< PATH. 

7010 DAT A OR IGIN , 0,0,' , 0 , " , O, O ,.) 

7020 DATA BLOCK, 0, 0,279,135, 0, 0,6,6 
7030 DAT A BLOCK, 0,136,279,191, 0, 0,1,1 
7040 DA rA T RIANGLE, 50,191,180,126, 75,191,0,3 
7050 REM CASTLE DATA 

7060 DATA ORIGIN, 63, 30,0,0,0,0,0,0 


COMMODORE 64 continued 

6050 NEXT Y 

7000 REM ♦** WINDOWS AND DOOR 

7010 POKEV+21,240 

7020 Yl = 14: Y2=16: X1=^I9: X2=20 , 

7030 C=9:NS=1:GOSUB 13000 
7040 RETURN 

8000 REM TREES 

8010 FOR TR-0 TO 9 

8020 T Y= INK RND (O) * 46 > 4 1 IK: 1 X= IN T (RND (O) * 1 44 ) 

8030 IF (TX.40 AND TX<104) AND rY<136 THEN 8020 

8040 FDR 1=20 TO O STEP-1: Y=TY4l 

8050 FOR ,7=0 TO 15: X=TX + J 

8060 MO=TRd,.J): IF MO: >2 THEN 8000 

8070 SYS MC,X,X,Y,MO 

8080 NEXT J,I,1R 

8090 RETURN 

9000 REM ***r NIGHT 11 ME 

9010 POKE 53281,0 

9020 FOR 1=0 TO 8: FOR .1 = 0 TO 3 

9030 POKE SC+K40kJ,7 

9040 NEX T J, I 

9050 FOR 1=0 10 16: Y=5+I 

9060 FOR J=0 TO 7: X=54^J 

90/0 MO=MOd,J): IF MO ;-3 THEN 9090 

9080 SYS MC,X,X,Y,Mn 

9090 NF XT J,I 

91.)0 RETURN 

10000 REM *** LIGHTNING *** 

10010 FOR LI=1 TO O STEP-l 

10020 P0K;E.53281 ,LI : FOR D=0 TO 50: NEXTD,LI 
10030 RETURN 

10040 REM MOVE BAT *** 

10050 FOR D=0 TO 30; NEXT 

10060 T=l-T: POKE 2041,35+T 
10070 IF X<1 OR X>69 THEN DX=-DX 
10080 IF ><49 OR Y>99 THEN DY=-DY 
10090 IF RS=255 THEN DX=1: DY=0 
10100 X=PEEK:(V+2) +DX; Y=REEK:(V+3) ♦DY 
10110 P0KEV+2,X: P0KEV+3,Y 
10120 RETURN 

11000 REM *** BURN *** 

1 1010 P(0) = 116:Pd)=107:P(2)=228:P(3)=107 
11020 P < 4) = 138:P(5) = 147:P(6)=206:P(7) = 147 
11030 FOR 1=0 TO 7: POKE V4l,P<I); NEXT 
11040 POKE V+16,0: POKE V+28,255 

1 1050 FOR’ I =0 TO 3: P0KE2040+1,33: P0K:EV+39+ 1,2; NEX T 

11060 POKE V+21,255:T=0 

11070 FOR BU=1 TO 200: T=i-T 

1 1080 POKE y+37,0+7*T: POKE V+ 38,7 - * I 

11090 IF BLK--100 THEN GOSUB lll4(i 

11100 IF BU=50 THEN GOSUB 11160 

11110 FOR D=0 TO 40:NEXT 

11120 NEXT BU;POKE V+21,0 

11130 FOR Y=0 TO li7;SYB ML,, 40, 1 20 , Y , O: NEX f ; RE TURN 

11140 FOR I=0 TO 3: POKE V+2*] ,p f 2*I)-12 

1 I 150 F •OKE 04-29,15: NE X I I: RET URN 

1 1 160 FOR I =0 T03; POKE V+14-2* 1 , P <2* 1 + d -20 

11170 POKE V+23,15; NEXTI; F^ETORN 

12000 REM **■*■ SKIJl 1. *** 

12010 FOR 1 = 1 10 12: FOR .7=15 10 24 

12020 POKE SC4-l*404-.7 ,RNr.)(0)*255: NE X 1.7 , 1 

12030 FOR 1=14 TO 0 STEP -1; FOR 3=0 TO 9 

12040 M0=RND(0)*24-1 : IF GKd,.7)=4 THEN 12080 

12050 X=6O40*4; Y=404-J*4 

12060 SYS MC,X,X4-2,Y,M0 

12070 SYS MC, X , X4-2, Y4-1 ,M0 

12O80 NEXT J,I 

12090 RETURN 

13000 REM *»* DRAW BOX *** 

13010 FOR I=Y1 TO Y2: FOR J=X] TO X2 

13020 POKE SC4l*40+-J , 134: POKE CO +1 *40+0 , C 

13030 NEXT .1,1 

13040 FOR Y=YH(B TO Y2*04-7 

13050 SYS M(::,XHt4,X2*44-3,Y,3 

13060 NEXT Y 

13070 IF NS=1 THEN RETURN 
13080 FOR Y=Y2*847 TO Yl*8 BTEP~2 
13090 SYS MC,X1#4,X2*44-3,Y, 1 
13100 NEXT Y 
13110 RETURN 

14000 REM *** INITIALIZE >n<-* 

1 4010 PR I NT "Li" : POK E53280,11: P0KE53281,14 
14020 P0KE5-3270,PEEK (53270) 0R16; REM MULTICOLOUR MODE 
14030 P0K:E53272, PEEK (53272) 0R8: REM,PUT SCREEN AT 8192 
14040 P0K:E53265,PE£K (53265) 0R.32: REM SWITCH TO BITMAP 
14050 DIM TR(3S, 15) ,D0(16,8) ,M0(.37,10) ,SK(28, 14) 

14 060 FOR 1 =0T020: FOR J =0T 015; READ TR (I , .7 > ; NE X T J , 1 

1 4070 FOR 1 =0T016: F OR J =0T07; READMO ( 1 , J ; : NE X T,:i, I 

14080 FORI=0T014:FDRJ=0T09:READSK(I,J):NEXTJ,1 

14090 V=53248: SC= 1 024; 00=55296; Mr:---49153: LI =0 

14 100 POKEV+a ,120; POKE04- 9,107: REM WINDOWS 

14110 POKE04-10,232: P0K;E04 11,107 

14 1 20 P0KE V4-12,142; FOKEV r 13,147 

14 130 POKE04-14,210: POK EV 4-15,147 

1 4 1 40 P0KE04-00,10 ; P0KE04-01 , 60 ; REM WITCH 

14150 POKEO402,50 : PDKEV4-03, SO : REM BAT 

14160 FOR I =0T07: P0K:EV4-394 I , 1: NE X T : REM COL OURS 

14170 F0RI = 4T07: P0KE20404-I , ;32; NEXT; REM POINTERS 

1 4 180 PDK E2040,34: P0KE2041,35: POKEOh- 16,2 

14190 POKEO 437, 10:POKEO+38,8:PaKE04 28,240;REM MC MODE 

14200 FOR I =0T031 9: RE AD D; P0K:E204 8+1 , D : NE X T 

14210 FOR Y=0T0199:SYS MC,O,159,Y,0:NEXT 

14220 RETURN 

20000 REM DATh FDR TREE 

20010 DATA4 , 2 , 4,4,4,4,4,2,4,4,2,4,2,4,4,4 
20020 DAT A2,2,4,4,2,2,4,4,2,4,4,2,4,4,4,4 
20030 DATA4,4, 2 , 4,4,2,4,4,2,4,4,2,4,4,4,4 




40 































’070 

DATA 

BLOCK, 

28, 

60,118 

, 120, 

O, 

0,1,2 

7080 

DATA 

BLOCK, 

14, 

40, 41 

, 80, 

L'*, 

0,1,2 

7090 

DATA 

BLOCK, 

105, 

40,132 

, 80, 

'-N 

0,1,2 

7100 

REM 1 

ROOFS ON TURRETS 




71 10 

DATA 

TRIANGLE, 

10, 39, 

28, 

0, 

44. 39.! 

7120 

DATA 

TRIANGLE,103, 39,118, 

0.136. 39.!= 

7130 

REM BATTLEMENTS 





7140 

DATA 

BLOCK, 

42, 

45,103, 

. 59, 

0, 

0,5,5 

7150 

DATA 

BLOCK, 

49, 

60, 5/5, 

1 65, 

0, 

0,5,5 

7160 

DATA 

BLOCK, 

63, 

60, 69, 

, 65, 

Q 

0,5-, 5 

7170 

DATA 

B1..0CK 

, 77 

, 60, S3, 65, 

1 0 

, 0,5, J 

7180 

DATA 

BLOCK, 


60, 97, 

, 65, 

0, 

0,5,5 

7190 

REM WINDOWS 

DOOR 




7200 

DATA 

BLOCK, 

21 , 

43, 27, 

. 51 , 

0, 

0,0,3 

7210 

DATA 

BLOCK, 

119, 

43,125, 

, 51 , 

0, 

0,0,3 

7220 

DATA 

BLOCK, 

28, 

60, 34, 

70, 

0, 

0,0,3 

7230 

DATA 

BLOCK, 

112, 

60,118, 

70, 

0, 

0,0,3 

7240 

DATA 

BLOCK, 

35, 

90, 48, 

102, 

*-’1 

0,0,3 

/250 

DATA 

BLOCK, 

98, 

90,111, 

102, 

0, 

0,0,3 

7260 

DATA 

BLOCK, 

63,105, 83, 

120, 

0, 

0,0,3 

7270 

DATA 

STOP,0 

, 0,0, 

, 0,0,0,0 

1,0 





COMMODORE 64 continued 


• 20040 
20050 
20060 
20070 
20080 
20090 
20100 
201 10 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20 ] 90 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 

2r'280 

20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 
20370 
20380 
20390 
204C>0 
204 10 
10420 
20430 
20440 
20450 
20460 
20470 
20480 
20490 
2050C> 
20510 
?0520 
J0530 
2054 
20550 
20560 
20570 
:0580 
20590 
20600 
20610 
20650 
2066'.* 
0670 
20680 
20690 
20700 
20730 
20740 
!075O 
20760 
20770 
10780 
20790 
20800 
20810 
20820 
‘0830 
!0840 
20850 

:0a60 

208/0 

:oa8o 


DATA4,4,2,4,4,4,2,4,2,4,4,2,4,2,4,4 
DAT 04,4,4,2,4,2,4,2,2,2,4,4,2,4,2,4 
DATA4,4,4,4,2,4,4,4,2,4,4,2,2,4,4,4 
DATA4,4,4,4,2,4,4,4,2,4,4,2,2,4,4,4 
DA T A4,4,4,2,2,4,4,4,2,4,2,2,4,4,4,4 
DATA4,4,2,4,2,2,2,2,2,4,2,4,4,4,2,4 
DAT 04,4,4,2,4,4,2,2,2,2,4,2,4,4,4,4 
DA rA4,4,4,2,4,4,2,2,2,2,4,2,4,4,4,4 
DAT 04,4,4,4,4,4,2,2,2,2,4,4,4,4,4,4 
DA I A4,4,4,4,4,2,2,2,2-v 4,4,4,4,4,4,4 
DATA4,4,4,4,4,2,2,2,2,4,4,4,4,4,4,4 
DATA4,4,4,4,4,2,2,2,2,4,4,4,4,4,4,4 
DATA4,4,4,4,4,2,2,2,2,4,4,4,4,4,4,4 
DATA4,4,4,4,4,4,2,2,2,2,4,4,4,4,4,4 
DATA4,4,4,4,4,4,2,2,2,2,4,4,4,4,4,4 
DA T04,4,4,4,4,2,2,2,2,7,4,4,4,4,4,4 
DATA4,4,4,4,2,2,2,2,2,2,2,4,4,4,4,4 
DAT04,2,2,2,4,2,2,2,2,2,2,7,2,7,4,4 
REM DATA FOR MOON 
DATA4,4,4,4,4,2,2,2 
DATA4,4,4,2,2,2,4,4 
DATA4,4,4,7,2,4,4,4 
DATA4,4-,2,2,4,4,4,4 
DATA4,2,2,2,4,4,4,4 
DATA4,2,2,2,4,4,4,4 
DATA4,2,2,4,4,4,4,4 
1>ATA4,2,2,4,2,4,2,4 
DATA2,2,2,4,4,4,4,4 
DA102,2,2,4,4,4,4,4 
DATA2,2,2,2,2,2,4,4 
DATA2,2,2,4,4,2,4,4 
DATA2,2,2,4,4,4,4,4 
DATA4,2,2,4,2,4,4,4 
DA rA4,4,2,2,2,2,4,2 
DATA4,4,2,2,2,2,2,4 
DATA4,4,4,2,2,2,4,4 
REM DATA I-OR SI Till. 

DATA 4,4,4,O,0,O,0,4,4,4 
DAT A 4 , (;, 0,0,0,0,0,0 , (<, 4 
DAT A 4,0,0,0,0,0,0,0,0,4 
DA T A 0,0,0,’, 0,0 , C), f), (), O 
DATA 0, ■ - ,4,0,0,0,0,4,0,0 
DAT A 0,0,4,4,0,0,4,4,' ■,' * 
r;ATA 0,0,4,4,0,0,4,4 ,■*,'* 

DATA 0,0,0,(1,0,0 , o , O , A, <. 

DATA 4 , *:*, 0 ,' , 4,0, O , O , i), 4 
DATA 4,0,u,O,4,4,'.,u,i.,4 
DATA 4,0, O,!*, , O ,,O ,.«, 4 

DAT A 4,4,4,0,0,0, • <, 1,4,4 
DATA 4,4,O,0,0, O,O,O, 4,4 
DATA 4,4, •),4,4,4,4, < *,4,4 
DATA 4,4,0,0,0, *.), (.• ,0,4,4 
REM SPRITE DATA:WINDOW 

DATA 755,252,0,86,84,0,250,188,' *,90,148, - *,250 
DATA 188,O,90,148,0,250,188,0,90,148,0,250,188,O 
DA TA 90,148,0,250,188,0,90,148,o,250,188,0,90 
DATA 148,0,250,188,0,90,148,« -,250,188,0,90,148,0 
DA T A 250, 188, *:*, 90, 1 48,0,255,752,0,000 
REM Fl.AME 

DAT A 0,192,0 , C*, 4,0, 1 , O, <», 1 , . 04 , o ,5,196,0,5,196,0 
DATA 5,76,0,7,1 00,0,7,164,0, / , 725,0,1,275,0, 1 
DAT A 2 3 3 ,", 17,7-". 2,117,48,1 ■ *4,1 1 2,6<;», 23? ,11'.’ 

DATA 75,2'29,64,58, 1 09,1 92,14,229, 1 92,1 4 , 1' >5 
DATA 192,7 , 186, I 8(;<, 1 , 1 '4,180 , .'55 
REM WITPH 

DA 1 A , < *, 0,0,6<:>, (.»,'>,14 

DAT A o, • *, 15 , , 0,15, 1 92,0,23,0,0,7, 1 28,2, 15,0, 1 
DAT A 255,0,3,255,128,4,249,128,0,6o, 1 92, 160, 12’6 
DATA 7.-4,84,126,112,1/1,255,255,84,191,0 
DA IA 128,7 , , 0,30,0, • *, 60,0, < *, 1 1 7,0,0,112, 0, ( tOO 

REM RAf WINGS UP 

DATA O, o, 0, 0,0, o, O , 0,0,0,0,0, 0 ,23 , o 

DA FA 56, 1 1 9 , , 238,1 29,21 9 , I 29, , 60,0,0,74 , <', 0,36 

DA T A <;», '■<, *■> ,'>,0,(1, < (, (>, O,' *, o, (.», (>, o, o, o, O, ‘ >, • ’, O, '>, O 
DA r A (>, O, O, O, O , < *, 0(;)0 
REM BAT - WINGS DOWN 

DATA <», O, O, '■•, ' >, 0 ,0,0,0,0,0,0,0,0,0,0, ■>, O, O , O, O , 0 
DATA 0,0,179,219,129,119,60,738,28,74,53,0,36,0 
DAT A O, I'J , (1 ,0,0,0,0,0,0,0,0, «>, O, O, n , O , O. O, O, O, O, <> 
DATA •>, O , OOO 
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Glossary 

DATA 

A list of information that is required by a program. DATA can 
consist of words or numbers, or both together. A program is 
sent to the DATA with the instruction READ. 

FOR.NEXT 

This is a sequence of commands that is used to make the 
computer repeat an operation a certain number of times. For 
example, the loop FOR X= 1 TO 5:PRINT 2*X:NEXT X would 
cause the computer to print the two times table up to five. 

GOTO 

This statement tells the computer to go to the specified line, 
missing out any lines in-between. It is often used with 

IF.THEN (see below) and is only operated if certain 

conditions are true. Be careful when using GOTOs, as it’s 
easy to have the program jumping backward and forward so 
much that it is impossible to read. 

HGR 

This sets the high resolution graphics mode on the Apple. 

HPLOT 

This places a set of x, y coordinates on the Apple screen. If 
HPLOT is followed by TO, it draws a line from the last point 
plotted to the coordinates indicated. This-works both 
horizontally and vertically. 

IF.THEN 

This is used as a way of telling the computer to do something 
only when certain conditions are true. This instruction often 
looks something like this: IF score=LE THEN WO = I. 

INT 

INT IS short for integer, and instructs the computer to make a 
whole number of a figure with decimal places in it. It is often 
used in conjunction with the RND command which instructs 
the computer to generate a random number (see below). 

LEFTS 

This instruction is used to copy part of a string, starting at the 
left-hand end. It is followed in brackets by the string name 
and the number of characters to be copied. 

LET 

This is one way of giving the. computer information. In some 
programs there may be statements such as; X= 10. This 
simply means that the number ten is stored under the label 

X. It is often clearer to write: LET X= 10 

The LET statement also gives rise to something that at first 
sight seems illogical, if not impossible. In many programs 
you will see things like: LETX=X-l-l 

Of course, in mathematical terms X can’t equal X-l-1. All this 
type of statement means is “increase the value of whatever is 
stored in X by one.” 
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LIST 

This makes the computer display whatever program it has in 

MID$ 

its memory. You can LIST single lines, or parts of a program 
by following the LIST with appropriate line numbers. 

This is used to copy the middle part of a string. It is followed 
in brackets by the string name, the start position, and the 
number of characters to be copied. 

PEEK 

This instruction looks at a particular memory location. It is 
often associated with POKE. 

PIXEL 

This represents a point on the grid in graphics mode. The 
number of pixels per screen is determined by the quality of 
the graphics, e.g. high or low resolution mode. 

POKE 

This stores numeric information in the computer’s memory. It 
is often used for sound and places a binary number in a 
particular location. 

PRINT 

This tells the computer to display something on the screen. 

RIGHTS 

Similar to LEFT$, but copies the right-hand end of a string. 

RND 

This instruction makes the computer generate a random 
number. The precise instruction varies between different 
models of computer. 

shape tables 

These are used to define the shape of a graphic on the 
screen on the Apple He. They are stored in tables, so that 
they can be called up easily when required. 

sprite 

A sprite is a user-defined character on the Commodore 64 
computer. It is a small area of the graphics screen which can 
be moved around and switched on and off with ease. A 
maximum of eight different sprites can be defined. 

STEP 

The STEP statement is always used following a FOR.... 
statement. It indicates the amount that the variable should bo. 
changed for each operation. For example: FOR X=0 TO 20 
STEP 5: PRINT X: NEXT X would mean that X would rise in 
steps of five, so that the computer would print 0, 5, 10, 15, 20. 

XDRAW 

This stands for “exclusive DRAW." It is an instruction used on 
the Apple lie. It combines what is being drawn “exclusively” 
with what is behind it. This means that it can be drawn over a 
background, and the background will return when the 
drawing is blanked out. It also means that when the same 
shape is “exclusively DRAWn" in the same place twice, it 
disappears. 
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